0 POKE 53280,15:POKE53281,15:PRINT"PLEASE WAIT..."
1 REM COMMODARES PROBLEM #29-4:
2 REM   LARGE PRODUCT
3 REM SOLUTION BY
4 REM   BOB BROWN
5 REM
110 FORJ=1TO4:P(J)=J:NEXT:GOSUB3000
200 FORK=4TO1STEP-1:IFP(K)<5+KTHENGOSUB2000:GOTO200
220 NEXT
1000 PRINTB,VAL(C$),VAL(D$):STOP
2000 P(K)=P(K)+1:IFK=4 THEN 3000
2010 FORL=K+1TOJ:P(L)=P(L-1)+1:NEXT
3000 A$="":B$="":C=1:FORL=1TO9
3020 IFP(C)=LTHENA$=A$+STR$(10-L):C=C+1:GOTO3050
3030 B$=B$+STR$(10-L)
3050 NEXT
3100 P=VAL(A$)*VAL(B$):IFP>BTHENB=P:C$=A$:D$=B$
3200 RETURN